00010 
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00030 

00040 ;CALLED FROM CLOCK ROUTINE WHEN COMCNT IS GREATER THAN 

00050 ;AS set by TTY SERVICE ROUTINE 

00060 ;ALL ACS HAVE BEEN SAVED BY CLOCK CHANNEL 

00070 ;THE COMMAND DECODER CALLS TTYCOM WHICH SCANS FOR TTY WHICH TYPED 

00080 ;THE COMMAND AND THEN D I SPaTCHES ( PUSH J ) TO APPROPRIATE 

00090 ;COMMAND SETUP ROUTINE OF THE SAME NAME WITH ACS SET AS: 

00100 ;ITEM = JOB NUMBER 

00110 ;TaC = BYTE POINTER TO COMMAND STRING(SPACE OR CR AFTER COMMAND NAME) 

00120 ;DAT = BYTE POINTER TO LAST OUTPUT CHARACTER 

00130 JDEVDAT = ADDRESS OF DEVICE DATA BLOCK TYPING COMMAND 

00140 ;JDAT = ADDRESS OF JOB AREA, = IF NO JOB AREA 

00150 JPROG = ADDRESS OF PROGRAM AREA 

00160 ;DEVDAT IS ALSO PUSHED ON END OF PD LIST SO IT MAY BE DESTROYED 

00170 ;UPON RETURN FROM COMMAND SETUP ROUTINE, A CR-LF IS ADDED TO 

00180 ;MESSAGE AND TTY IS STARTED ON TTY SPECIFIED BY -l(PDP) 

00190 

00200 ;SINCE THE COMMAND DECODER IS CALLED FROM THE CLOCK ROUTINE 

00210 ;COMMAND SETUP ROUTINE MUST RUN TO COMPLETION QUICKLY 

00220 ;IF A COMMAND FUNCTION CANNOT DO THIS, IT MUST JUST SET 

00230 ;THE JOB TO RUNABLE STATUS AND RETURN IMMEDIATELY 

00240 

00250 INTERNAL COMMAND 

00260 EXTERNAL TTYCOM, TTYSTR , CTEXT , JBTADR , CONMES 

00270 EXTERNAL COMERR, COMCNT 

00280 EXTERNAL JOB I N I , CRLF , CTEXTl , RADX10 , ASS JOB , JBTSTS 

00290 

00300 T=BUFPNT ;TEMPORARY ACS 

00310 T1=BUFWRD 

00320 
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00330 

000000 ?60140 P10000PI 00340 command: PUSHJ PDP, TTYCOM ;SETUP 0EVDAT,DAT,TAC, AND ITEM 

000001 ?54000 000041' 00350 JRST COM2 JNONE FOUND 

000002 261140 000006 00360 PUSH PDP,0EVDAT ;SAVE TTY DDB ADDRESS 

000003 260140 000000 00370 PUSHJ PDP, CTEXT ;RETURN COMMAND NAME IN TACl 

000004 322100 000043' 00380 JUMPE TACl, C0M2A ; IGNORE BLANK LINE 

000005 205500 777760 00390 MOVSI T, -OISPL {SEARCH FOR COMMAND NAME 

000006 312112 000074' 00400 CAME TACl, COMTAB(T) 

000007 253500 000006' 00410 AOBJN T, .-1 

000010 325500 000047' 00420 JUMPGE T,C0M2B .'WAS COMMAND FOUND? 

000011 200112 000114' 00430 MOVE TAC1,DISP(T) ;YES, GET DISPATCH ADDRESS AND BITS 

000012 326200 000026' 00440 JUMPN ITEM. COMl JHAS A JOB NUMBER BEEN ASSIGNED 

000013 603100 200000 00450 TLNE TACI.NOJOBN ;N0, IS A JOB NUMBER NEEDED FOR THIS CO 

000014 254000 000026' 00460 JRST COMl ;N0 

000015 260140 000000 00470 PUSHJ PDP.ASSJOB JTRY TO ASSIGN A FREE JOB NUMBER 

000016 254000 000067' 00480 JRST C0M3A JNONE AVAILABLE. ERROR MESSAGE 
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000017 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000030 
000031 
000032 
000033 
000034 

000035 
000036 
000037 
000040 
000041 
000042 

000043 
000044 
000045 
000046 
000047 
000050 

000051 
000052 
000053 
000054 

000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 

000071 
000072 
000073 



261140 
261140 
403340 
260140 
262140 
262140 
202303 
550444 
336340 
603100 
254000 

201040 
260140 
254000 



000001 

000002 
000011 
000000 
000002 
000001 
000000 
000000 

000011 

400000 
000035' 
000051' 
000000 
000036 ' 



260142 000000 
326200 000055' 
262140 000006 
260140 000000 
370000 000000 
263140 000000 

135100 000001 
302100 000015 
306100 000073 
254000 000037' 
260140 000000 
254000 000037' 

472364 041636 
^12124 040646 
516230 747212 
420321 200000 

200044 000000 
663040 004000 
254000 000067' 
202044 000055' 
201040 000134' 
260140 000033' 
200040 000004 
260140 000000 
201040 000071' 
260140 000062' 
260140 000000 
254000 000037' 

202231 644650 
446031 444664 
426101 505000 



00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
005913 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 



00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 

00970 
00980 



COMi: 



COMIB: 



comic: 
COMIA: 
COMID: 

COM2: 



C0M2A: 

C0M2B: 
NOCOR: 

/ 

COM3: 



C0M3A: 

JOBM: 
/ 



PUSH POP, TAC 

PUSH PDP,TAC1 

SETZB PROG.JDAT 

PUSHJ PDP.JOBINI 

POP PDP.TACl 

POP POP, TAC 

MOVEM DEVDAT, (POP) 

HRR2 jDAT, jBTADR(ITEM) 



SKIPN PROG.JDAT 
TLNE TAC1,N0C0RE 
JRST COMIC 
MOVEI TAC, NOCOR 
PUSHJ PDP,CONMES 
JRST COMIA 

PUSHJ POP, (TACl) 
JUMPN ITEM, COM3 
POP POP, DEVDAT 
PUSHJ POP, TTYSTR 
SOS COMCNT 
POPJ PDP, 

LDB TACl, TAC 
CAIE TACl, 15 
CAIN TACl.";" 
JRST COMID 
PUSHJ PDP,COMERR 
JRST COMID 



;SAVE INPUT BYTE POINTER 

;SAVE ADDRESS OF COMMAND ROUTINE 

;N0 CORE, CLEAR REL. ADRESS 

;INITIALI2E JOB 

;REST0RE ADR OF COMMAND ROUTINE 

{RESTORE INPUT BYTE POINTER 

;SET ADDRESS OF TTY QEV. DATA BLOCK 

;and job data area 

PROG, does job have CORE? 

IS CORE NEEDED FOR THIS COMMAND? 



;SET 

;no, 

;no 

;yes. 



PRINT "NO CORE ASSIGNED" 



;dispatch to command setup routine 
;add CR-LF and check for job init. 

;REST0RE TTY DDB ADDRESS 
;START OUTPUT, IF ANY 

{decrement command count 
;exit 

;NULL FIELD. WAS BREAK CHAR. A CR? 
;a CR? 

;0R A SEMI COLON? 
;YES, IGNORE LINE 
;N0, print MONITOR COMMAND ERROR 



ASCI2 /NO CORE ASSIGNED 



MOVE TAC, JBTSTS(ITEM) 

TLOE TACJNA 

JRST C0M3A 

MOVEM TAC. JBTSTS(ITEM) 

MOVEI TAC.CASCI2 /JOB /] 



JGET STATUS WORD 

; IS JOB NO ASSIGNED 



;YES, JOB INIT. 



BIT 
BEFORE 



ON YE 



PUSHJ PDP.CONMES 
MOVE TAC, ITEM 
PUSHJ PDP,RADX10 
MOVEI TAC, JOBM 
PUSHJ PDP,CONMES 
PUSHJ PDP,CRLF 
JRST COMID 

ASCIZ / INITIALIZED 



PRINT JOB N INITIALIZED 



PRINT JOB NUMBER 



COMINI - THE COMMAND DECODER 
T. HASTINGS 8-P-65 



PAGE 6 



00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 

01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 



JTABLE OF CONSOLE COMMANDS 



NOCORE=400000 
NOJOBN=200000 



;N0 CORE NEEDED FOR COMMAND 

;N0 job NUMBER NEEDED FOR COMMAND 



DEFINE NAMES 
<REPEAT 0,< 

C G,COMERR,0 
> 

C CORE, CORE, NOCORE 

C GET, GET, 

C START, START, 

C IJOB. IJOB.NOCORE+NOJOBN 

C PJOB.PJOB, NOCORE 

C KJOB,KJOB, NOCORE 

C SAVE. SAVE, 
REPEAT 0,< 

C RESAVE,COMERR,0 
> 

C CONT,CONT,0 

C DDT,DDTGO,0 

C ASSIGN, ASSIGN, NOCORE 

C OEASSI.DEASSIGN, NOCORE 

C STARTC,STARTC,0 

C CONTC,CONTC,0 

C DETACH, DETACH, NOCORE+NOJOBN 

C ATTACH, ATTACH, NOCORE+NOJOBN 
REPEAT 0,< 

C MTAPE,COMERR,0 

C DAYTIM.COMERR, NOCORE 

C RUNTIM,COMERR, NOCORE 

C TOTTIM.COMERR, NOCORE 

C NULTIM,COMERR, NOCORE 

C SYSDDT,COMERR, NOCORE 

C SYSMAK,SYSMAK,0 
> 

C DIGITAL, DIGITAL, NOCORE+NOJOBN 
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000074 
00007^ 
000076 

000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 

000110 

000111 
000112 
000113 
000114 



435762 
474564 
636441 
515257 
605257 
535257 
634166 
435756 
444464 
416363 
444541 
636441 
435756 
444564 
416464 
445147 
540000 



450000 
000000 
626400 
420000 
420000 
420000 
450000 
640000 

000000 

514756 
636351 
626443 
644300 
414350 
414350 
516441 
000000 



01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 



;generate table of sixbit command names 
define c(a,b,c) 

< ZZ=.+1 

SIXBIT /A/ 

IFN .-ZZ,<RELOC ZZ> JONLY FIRST 6 CHARACTERS 
> 



COMTAR 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 



NAMES 
/CORE/ 
/GET/ 
/START/ 
/IJOB/ 
/PJOB/ 
/KJOB/ 
/SAVE/ 
/CONT/ 
/DDT/ 
/ASSIGN/ 
/DEASSI/ 
/STARTC/ 
/CONTC/ 
/DETACH/ 
/ATTACH/ 
/DIGITAL/ 



01480 



DISPL=.-COMTAB 



;LENGTH of TABLE 
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000114 
000115 
000116 
000117 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000130 
000131 
000132 
000133 



400000 
000000 
000000 
600000 
400000 
400000 
000000 
000000 
000000 
400000 
400000 
000000 
000000 
600000 
600000 
600000 



000000 

000000 

000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 



000134 452370 220000 



01580 
01590 
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{GENERATE THE DISPATCH TABLE 

DEFINE C(A,B,C) 
< XWD C,B 

EXTERNAL B 
> 

OISP: NAMES 

XWD NOCORE,CORE 

XWD 0,GET 

XWD 0, START 

XWD NOCORE+NOJOBN, IJOe 

XWD NOCORE,PJOB 

XWD NOCORE,KJOB 

XWD 0,SAVE 

XWD 0,CONT 

XWD 0.DDTGO 

XWD NOCORE, ASSIGN 

XWD NOCORE, DEASSIGN 

XWD 0,STARTC 

XWD 0,CONTC 

XWD NOCORE+NOJOBN, DETACH 

XWD NOCORE+NOJOBN, ATTACH 

XWD NOCORE+NOJOBN, DIGITAL 

END, 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 000135 
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A 

ACl 

AC? 

AC3 

AL 

ASSCON 

ASSIGN 

ASSJOB 

ASSPRG 

ATTACH 

R 

RUFPNT 

RUFWRD 

CLOSB 

CLSIN 

CLSOUT 

COMl 

COMIA 

COMIB 

COMIC 

cOMin 

COM2 

C0M2A 

C0M2B 

COM3 

C0M3A 

COMCNT 

COMERR 

COMMAN 

COMTAB 

CONMES 

CONT 

CONTC 

CORE 

CRLF 

CTFXT 

CTFXTl 

n 

DAT 
DCL 

new 

ODI 

DDO 

nOTGO 

DDTMFM 

DDTSYM 

DEASSI 

DEN 

DETACH 

DEVAOR 

OEVBUF 

DEVCHR 

DEVCTR 

DEVDAT 

DEVIAD 



000000 


INT 


000015 


INT 


000016 


TNT 


000017 


INT 


000001 


INT 


400000 


INT 


000125- 


FXT 


000015' 


EXT 


200000 


INT 


000132* 


FXT 


000014 


INT 


000012 


INT 


000013 


INT 


002000 


INT 


000002 


INT 


000001 


INT 


000026' 




000036' 




000033' 




000035' 




000037' 




000041' 




00(^043' 




000047' 




000055' 




000067' 




000041' 


FXT 


000047' 


FXT 


000000' 


INT 


000074' 




000066' 


FXT 


000123' 


FXT 


000130' 


FXT 


000114' 


FXT 


000067' 


FXT 


000003' 


FXT 


000 100 


FXT 


000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000124' 


FXT 


000037 


INT 


000036 


INT 


000126' 


FXT 


000004 


INT 


000131' 


EXT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 
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DEVIOS 

OEVLOG 

OEVMOD 

DEVNAM 

DEVOAO 

DEVPTR 

DEVSER 

DGE 

D I G I T A 

DIN 

nisp 

niSPL 

DLK 

OOU 

nR 

DRL 

nsi 

DSD 
DTW 

DVAVAL 
nVCDR 

ovniR 
nvniRi 

DVIN 

DVLPT 

DVMTA 

DVOUT 

OVTTY 

ENTRB 

GET 

I 

IB 

IBUER 

TJOB 

INITP 

INPB 

10 

lOACT 

lOREG 

lORKTL 

lOCON 

lOnEND 

lonERR 
ionise 

lOnONE 

lODTER 

lOENO 

lOFST 

TOIMPM 

lOMRCK 

lORDEL 

lORET 

lOS 

lOSTRT 

lOUSF 



000002 
000005 
000004 

000000 

000010 

000010 

000003 

000012 

000133' 

000003 

000114' 

000020 

000005 

000002 

000016 

000000 

000011 
000010 
040000 
000040 

100000 

000004 
400000 

000002 

040000 
000020 

00 001 

000010 

020000 

000115' 

000010 

000013 

200000 

000117' 

400000 

0100 

000020 

010000 

000002 

040000 

000040 

020000 

200000 

400000 

400000 

100000 

000040 

000004 

400000 

000100 

000100 

000020 

000000 

000010 

400000 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 



INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

EXT 

INT 

INT 

INT 

EXT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 
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TOW 

lOWC 

lOWS 

ITEM 

JBEADR 

JBECTR 

JBEPTR 

JBTADR 

JBTSTS 

JBUE 

JDAT 

JERR 

JIOW 

JNA 

JORINI 

JORM 

KJOB 

LOOKB 

MTW 

NOCOR 

NOCORE 

NOJOBN 

OBUEB 

OUTPB 

POP 

PICHN 

PJOB 

PROG 

RAnX10 

RUN 

RUNABL 

SAVE 

START 

STARTC 

T 

Tl 

TAC 

TACl 

TEM 

TTYATC 

TTYCOM 

TTYSTR 

TTYUSE 

USRMOD 

UUO 

zz 



000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000026' 


EXT 


000060' 


FXT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


000022' 


FXT 


000071' 




000121' 


EXT 


040000 


INT 


010000 


INT 


000051 ' 




400000 




200000 




100000 


INT 


004000 


INT 


000003 


INT 


000100 


TNT 


000120 ' 


FXT 


000007 


INT 


000064 ' 


FXT 


200000 


INT 


204000 


INT 


000122' 


FXT 


000116' 


FXT 


000127' 


FXT 


000012 




000013 




000001 


TNT 


000002 


INT 


000010 


INT 


020000 


INT 


000000 ' 


EXT 


000040' 


EXT 


010000 


INT 


010000 


INT 


000014 


INT 


000114' 





END OF ASSEMBLY 



